Form2
Preview
XXXXX
XXXXX
XXXXX
XXXXX
XXXXX
XXXXX
XXXXX
XXXXX
Form2%
DestinationPic
Form_Resize
	WallPaper
Form_Unload
Cancel3
	Form_Load
Form1q
Heighta
Left)
Width4
Form_DblClickd
Check1=
Value!
File1DClick
List1DClick
Form2g
WindowState
Loading#
False
Picture1_Click
Draggingo
Picture1_MouseDown
Button
Shift
Picture1
Picture1_MouseMove
Picture1_MouseUp
StretchBltB
nWidth
nHeight
hSrcDC{
	nSrcWidth
nSrcHeight
dwRop?
DragPictureTo
hDestDCW
BitBlt
	SourcePicQ
Visible
SourcePic_Click
DestinationPic
DestinationPic_MouseDown
	MouseDownn
DestinationPic_MouseMove
DestinationPic_MouseUp:
AutoRedraw[
Picture
imageI
NonPersistentHDC
PersistentHDC
Check2
Tiling?
	gDragging
	floadpSub
ShowAllFiles
TileChecked
ScaleWidth
ScaleHeight
	scalemode
Moving
gDrawing
Timer1
Enabled
	ScaleWith'
AutoResize
AutoSize
Metafile
Ratio:
DestinationPic_MouseDown
DestinationPic_MouseMove
If Y > ScaleHeight + 2 Then Y = ScaleHeight + 2
Carole Rogers r
DestinationPic_MouseUp
stop moving this up
it belongs after the mouse_move call
Call DestinationPic_MouseMove(Button, Shift, X, Y)
Call DestinationPic_MouseMove(Button, Shift, X, Y)
Call DestinationPic_MouseMove(Button, Shift, X, Y)
DragPictureTo
to dest from source
If Not Tiling Then
   dX = (X - Form2.DestinationPic.Width) \ 2
   dY = (Y - Form2.DestinationPic.Height) \ 2
   Form2.DestinationPic.Width = Form2.DestinationPic.Width + dX * 2q
   Form2.DestinationPic.Left = Form2.DestinationPic.Left - dXd
   Form2.DestinationPic.Height = Form2.DestinationPic.Height + dY * 2
   Form2.DestinationPic.Top = Form2.DestinationPic.Top - dYt
End If
Form1.Picture1.Width = Form2.DestinationPic.Widthe
Form1.Picture1.Height = Form2.DestinationPic.Height
Form1.Picture1.ScaleWidth = Form2.DestinationPic.ScaleWidthh
Form1.Picture1.ScaleHeight = Form2.DestinationPic.ScaleHeight
T% = BitBlt%(Form2.DestinationPic.hDC, Form2.DestinationPic.Left, Form2.DestinationPic.Top, X, Y, Form1.Picture1.hDC, Form1.Picture1.Left, Form1.Picture1.Top, dwRop&)
Form_DblClick
Form_Load
Top = Form1.Top=
Form_Resize
Command1.Width = ScaleWidth
Form2.Visible = True
 minimized
Form_Unload